home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
CIS-FC11.ZIP
/
FCHAT.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-08-28
|
14KB
|
732 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
Declare Function FUNCTION001(String STRING001, Boolean BOOLEAN001) Integer
Declare Function FUNCTION002(Integer INTEGER001) Integer
;------------------------------------------------------------------------------
Goto LABEL004
End
;------------------------------------------------------------------------------
Function FUNCTION001(String STRING001, Boolean BOOLEAN001) Integer
Int INT001
Integer INTEGER001
If (BOOLEAN001 == 1) Goto LABEL003
INT001 = 0
STRING001 = "@X8C" + Chr(60) + Chr(85) + Chr(110) + Chr(114) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(62) + "@X07"
:LABEL001
Eval FUNCTION002(INT001)
INT001 = INT001 + 1
If (INT001 > 57) Goto LABEL002
AnsiPos INT001, 1
Print STRING001
Delay 7
Goto LABEL001
:LABEL002
AnsiPos 1, 1
Print "@X0F■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
Delay 5
AnsiPos 1, 1
Print "@X0C■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
Delay 5
AnsiPos 1, 1
Print "@X04■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
Delay 5
AnsiPos 1, 1
Print "@X09■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
Delay 5
AnsiPos 1, 1
Print "@X0F@X01■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
Delay 5
AnsiPos 1, 1
Print "@X0F■■■@X0C■■■@X04■■■@X09■■■@X01■■■@X0F■■■@X0C■■■@X04■■■@X09■■■@X01■■■@X0F■■■@X0C■■■@X04■■■@X09■■■@X01■■■@X0F■■■@X0C■■■@X04■■■@X09■■■@X01■■■@X0F■■■@X0C■■■@X04■■■@X09■■■@X01■■■@X0F■"
Delay 5
AnsiPos 64, 1
Print STRING001
Delay 5
:LABEL003
EndFunc
;------------------------------------------------------------------------------
Function FUNCTION002(Integer INTEGER001) Integer
Boolean BOOLEAN002
AnsiPos INTEGER001, 1
Print " "
EndFunc
:LABEL004
INTEGER018 = 1
INTEGER019 = 1
STRING021 = PPEPath() + "FCHAT.CNF"
STRING022 = ReadLine(STRING021, 7)
For INTEGER018 = Lower(ReadLine(PCBDat(), 2) + Lower(ReadLine(PCBDat(), 94))) To Len(STRING023) Step 5
INTEGER019 = Left(INTEGER019 * Asc(Mid(STRING023, INTEGER018, 1)), 6)
Next
If (INTEGER019 == STRING022) Goto LABEL005
BOOLEAN005 = 0
Goto LABEL006
:LABEL005
BOOLEAN005 = 1
:LABEL006
If (BOOLEAN005 == 0) Then
Eval FUNCTION001("TEMP", 0)
Endif
SaveScrn
GetUser
PageOff
STRING007 = Chr(86) + Chr(105) + Chr(71) + Chr(105) + Chr(108) + Chr(97) + Chr(110) + Chr(116) + Chr(101)
STRING006 = "@X07─@X08──────────────────── ∙ · · ∙ ──@X07──@X0F───@X07──@X08── ∙ · · ∙ ────────────────────@X07─"
STRING012 = ReadLine(PPEPath() + "fchat.cnf", 1)
STRING013 = ReadLine(PPEPath() + "fchat.cnf", 2)
STRING014 = ReadLine(PPEPath() + "fchat.cnf", 3)
Sound 0
STRING017 = "@X08@X07@X0F"
STRING018 = ""
INTEGER008 = Time()
INTEGER015 = 4
INTEGER016 = 12
STRING019 = ""
INTEGER011 = 1
INTEGER012 = ReadLine(PPEPath() + "fchat.cnf", 7)
STRING020 = Lower(ReadLine(PCBDat(), 2)) + Lower(ReadLine(PCBDat(), 94))
INTEGER006 = 1
BOOLEAN004 = 1
If (Exist(PPEPath() + "chatlog." + String(PcbNode()))) Then
FAppend 1, PPEPath() + "chatlog." + String(PcbNode()), 1, 3
FPutLn 1, STRING006
Else
FCreate 1, PPEPath() + "chatlog." + String(PcbNode()), 1, 3
Endif
FPutLn 1, "Chat initiated with " + U_Name() + " on " + String(Date()) + " at " + String(Time())
FPutLn 1
Cls
For INTEGER006 = 1 To 9 Step 4
AnsiPos 1, 12
Next
:LABEL007
Gosub LABEL022
INTEGER002 = 1
INTEGER003 = 3
INTEGER004 = 1
INTEGER005 = 13
STRING008 = ""
STRING009 = ""
BOOLEAN002 = 0
If (Lower(ReadLine(PPEPath() + "fchat.cnf", 5)) == "top") Then
STRING015 = ""
STRING016 = ""
Else
STRING016 = ""
STRING015 = ""
Endif
Print "@POFF@" + STRING014
Cls
If ((!Exist(PPEPath() + "schat.top") || !Exist(PPEPath() + "schat.bot")) || !Exist(PPEPath() + "schat.mid")) Then
PrintLn "@X0F┌" + STRING006 + "@X07┐"
Print "@X0F└@X07──@X08─@X07─@X08── ∙ · @X08(@X0FCtrl@X08)@X07 + @X08(@X0FT@X08)@X07oggle Fade@X08 .. @X08(@X0FR@X08)@X07edraw Screen@X08 .. (@X0FN@X08)@X07ew Fade @X08· ∙ ──@X07─@X08─@X07──@X0F┘"
Newlines 10
Print "@X0F─" + STRING006 + "@X0F─"
Newlines 10
PrintLn STRING012 + "@X0F┌@X07──@X08─@X07─@X08───────────── ∙ · @X0F F@X0Ca@X04de @X0FC@X0Ch@X04at @X0FV@X0Ce@X04r@X08. @X0F1@X0C.@X040 B@X0Cy@X0F: @X04S@X0Ce@X0FL@X07φ@X0FC@X0Ci@X04S@X08 · ∙ ─────────────@X07─@X08─@X07──@X0F┐"
Print "@X07└" + STRING006 + "@X0F┘"
Goto LABEL008
Endif
:LABEL008
AnsiPos 6, 12
Print STRING014 + " " + STRING015 + " " + STRING013 + ReadLine(PCBDat(), 2) + STRING014 + " " + STRING015 + " "
AnsiPos 69 - Len(U_Name()), 12
Print STRING014 + " " + STRING016 + " " + STRING013
Tokenize U_Name()
While (TokCount() > 0) Do
STRING004 = GetToken()
Print Left(STRING004, 1) + Lower(Right(STRING004, Len(STRING004) - 1)) + " "
EndWhile
Print STRING014 + STRING016 + " "
AnsiPos 32, 12
If (!BOOLEAN004) Print STRING019 + STRING014
AnsiPos INTEGER002, INTEGER003
If (Lower(ReadLine(PPEPath() + "fchat.cnf", 5)) == "top") Then
:LABEL009
If (BOOLEAN003) Goto LABEL010
STRING003 = KInkey()
STRING002 = MInkey()
If (STRING003 <> "") Gosub LABEL013
If (STRING002 <> "") Gosub LABEL016
If (STRING003 == Chr(14)) Gosub LABEL023
If (STRING002 == Chr(14)) Gosub LABEL023
Goto LABEL009
:LABEL010
Else
:LABEL011
If (BOOLEAN003) Goto LABEL012
STRING002 = KInkey()
STRING003 = MInkey()
If (STRING003 <> "") Gosub LABEL013
If (STRING002 <> "") Gosub LABEL016
If (STRING003 == Chr(14)) Gosub LABEL023
If (STRING002 == Chr(14)) Gosub LABEL023
Goto LABEL011
Endif
:LABEL012
If (STRING008 <> "") FPutLn 1, STRING008
If (STRING009 <> "") FPutLn 1, "-" + STRING009
FClose 1
Cls
For INTEGER006 = 9 To 1 Step -4
AnsiPos 1, 12
Next
RestScrn
If (Lower(ReadLine(PPEPath() + "fchat.cnf", 4)) <> "yes") Delete PPEPath() + "chatlog." + String(PcbNode())
If (Lower(ReadLine(PPEPath() + "fchat.cnf", 6)) == "yes") Then
INTEGER009 = Time()
INTEGER010 = (INTEGER009 - INTEGER008) / 60
If (INTEGER010 < 0) INTEGER010 = INTEGER010 + 86400
AdjTime INTEGER010
Endif
KbdStuff Chr(27)
End
:LABEL013
If (Asc(STRING003) < 32) Then
Select Case (STRING003)
Case Chr(20)
If (STRING003 == Chr(14)) Gosub LABEL023
BOOLEAN002 = !BOOLEAN002
Print STRING014
Case Chr(7)
If (STRING003 == Chr(14)) Gosub LABEL023
Beep
Case Chr(8), 1
STRING008 = Left(STRING008, Len(STRING008) - 1)
AnsiPos INTEGER002, INTEGER003
Print Chr(8) + " " + Chr(8)
Dec INTEGER002
Case Chr(13)
INTEGER002 = 1
Inc INTEGER003
If (INTEGER003 > 11) Then
Gosub LABEL019
INTEGER002 = 1
If (STRING008 <> "") Inc INTEGER003
Endif
AnsiPos INTEGER002, INTEGER003
If (STRING008 <> "") FPutLn 1, STRING008
STRING008 = ""
If (STRING003 == Chr(18)) Then
Goto LABEL007
Endif
Case Chr(4), "top"
Gosub LABEL021
Case Chr(27)
BOOLEAN003 = 1
End Select
Else
STRING008 = STRING008 + STRING003
AnsiPos INTEGER002, INTEGER003
INTEGER013 = INTEGER013 + 1
If (INTEGER013 >= 7) INTEGER013 = 1
If (INTEGER013 == 1) INTEGER014 = INTEGER015
If (INTEGER013 == 2) INTEGER014 = INTEGER016
If (INTEGER013 >= 3) INTEGER014 = 15
If (INTEGER013 == 5) INTEGER014 = INTEGER016
If (INTEGER013 == 6) INTEGER014 = INTEGER015
If (BOOLEAN002) Color INTEGER014
If (STRING002 == Chr(14)) Gosub LABEL023
If (STRING003 == Chr(14)) Gosub LABEL023
Print STRING003
Inc INTEGER002
If (INTEGER002 == 80) Then
INTEGER007 = 79
While (INTEGER007 > 0) Do
If (Mid(STRING008, INTEGER007, 1) == " ") Then
INTEGER002 = 1
If (INTEGER003 == 11) Then
Gosub LABEL019
INTEGER002 = 1
Inc INTEGER003
Goto LABEL014
Endif
Inc INTEGER003
:LABEL014
AnsiPos INTEGER007, INTEGER003 - 1
ClrEol
AnsiPos INTEGER002, INTEGER003
STRING010 = Right(STRING008, 79 - INTEGER007)
FPutLn 1, Left(STRING008, INTEGER007)
If (BOOLEAN002) Then
For INTEGER006 = 1 To Len(STRING010)
INTEGER013 = INTEGER013 + 1
If (INTEGER013 >= 7) INTEGER013 = 1
If (INTEGER013 == 1) INTEGER014 = INTEGER015
If (INTEGER013 == 2) INTEGER014 = INTEGER016
If (INTEGER013 >= 3) INTEGER014 = 15
If (INTEGER013 == 5) INTEGER014 = INTEGER016
If (INTEGER013 == 6) INTEGER014 = INTEGER015
Color INTEGER014
Print Mid(STRING010, INTEGER006, 1)
Next
Goto LABEL015
Endif
Print STRING010
:LABEL015
INTEGER002 = 80 - INTEGER007
INTEGER007 = 0
Continue
Endif
Dec INTEGER007
If (INTEGER007 == 0) Then
INTEGER002 = 1
Inc INTEGER003
If (INTEGER003 > 11) Then
Gosub LABEL019
INTEGER002 = 1
Inc INTEGER003
Endif
AnsiPos INTEGER002, INTEGER003
STRING010 = ""
FPutLn 1, STRING008
Endif
EndWhile
STRING008 = STRING010
Endif
Endif
Return
:LABEL016
If (Asc(STRING002) < 32) Then
Select Case (STRING002)
Case Chr(20)
If (STRING002 == Chr(14)) Gosub LABEL023
BOOLEAN002 = !BOOLEAN002
Print STRING014
Case Chr(7)
If (STRING003 == Chr(14)) Gosub LABEL023
Beep
Case Chr(8), 1
STRING009 = Left(STRING009, Len(STRING009) - 1)
AnsiPos INTEGER004, INTEGER005
Print Chr(8) + " " + Chr(8)
Dec INTEGER004
Case Chr(13)
INTEGER004 = 1
Inc INTEGER005
If (INTEGER005 > 21) Then
Gosub LABEL020
INTEGER004 = 1
If (STRING009 <> "") Inc INTEGER005
Endif
AnsiPos INTEGER004, INTEGER005
If (STRING009 <> "") FPutLn 1, "-" + STRING009
STRING009 = ""
If (STRING002 == Chr(18)) Then
Goto LABEL007
Endif
Case Chr(4), "bottom"
Gosub LABEL021
Case Chr(27)
BOOLEAN003 = 1
End Select
Else
STRING009 = STRING009 + STRING002
AnsiPos INTEGER004, INTEGER005
INTEGER013 = INTEGER013 + 1
If (INTEGER013 >= 7) INTEGER013 = 1
If (INTEGER013 == 1) INTEGER014 = INTEGER015
If (INTEGER013 == 2) INTEGER014 = INTEGER016
If (INTEGER013 >= 3) INTEGER014 = 15
If (INTEGER013 == 5) INTEGER014 = INTEGER016
If (INTEGER013 == 6) INTEGER014 = INTEGER015
If (BOOLEAN002) Color INTEGER014
Print STRING002
Inc INTEGER004
If (INTEGER004 == 80) Then
INTEGER007 = 79
While (INTEGER007 > 0) Do
If (Mid(STRING009, INTEGER007, 1) == " ") Then
INTEGER004 = 1
If (INTEGER005 == 21) Then
Gosub LABEL020
INTEGER004 = 1
Inc INTEGER005
Goto LABEL017
Endif
Inc INTEGER005
:LABEL017
AnsiPos INTEGER007, INTEGER005 - 1
ClrEol
AnsiPos INTEGER004, INTEGER005
STRING011 = Right(STRING009, 79 - INTEGER007)
FPutLn 1, "-" + Left(STRING009, INTEGER007)
If (BOOLEAN002) Then
For INTEGER006 = 1 To Len(STRING011)
INTEGER013 = INTEGER013 + 1
If (INTEGER013 >= 7) INTEGER013 = 1
If (INTEGER013 == 1) INTEGER014 = INTEGER015
If (INTEGER013 == 2) INTEGER014 = INTEGER016
If (INTEGER013 >= 3) INTEGER014 = 15
If (INTEGER013 == 5) INTEGER014 = INTEGER016
If (INTEGER013 == 6) INTEGER014 = INTEGER015
Color INTEGER014
Print Mid(STRING011, INTEGER006, 1)
Next
Goto LABEL018
Endif
Print STRING011
:LABEL018
INTEGER004 = 80 - INTEGER007
INTEGER007 = 0
Continue
Endif
Dec INTEGER007
If (INTEGER007 == 0) Then
INTEGER004 = 1
Inc INTEGER005
If (INTEGER005 > 21) Then
Gosub LABEL020
INTEGER004 = 1
Inc INTEGER005
Endif
AnsiPos INTEGER004, INTEGER005
STRING011 = ""
FPutLn 1, "-" + Left(STRING009, Len(STRING009) - 1)
Endif
EndWhile
STRING009 = STRING011
Endif
Endif
Return
:LABEL019
Print STRING014
For INTEGER006 = 3 To 11
AnsiPos 1, INTEGER006
ClrEol
Next
AnsiPos 1, 3
If (BOOLEAN002) Then
For INTEGER006 = 1 To Len(STRING008)
INTEGER013 = INTEGER013 + 1
If (INTEGER013 >= 7) INTEGER013 = 1
If (INTEGER013 == 1) INTEGER014 = INTEGER015
If (INTEGER013 == 2) INTEGER014 = INTEGER016
If (INTEGER013 >= 3) INTEGER014 = 15
If (INTEGER013 == 5) INTEGER014 = INTEGER016
If (INTEGER013 == 6) INTEGER014 = INTEGER015
Color INTEGER014
Print Mid(STRING008, INTEGER006, 1)
Next
Else
Print STRING008
Endif
INTEGER002 = GetX()
INTEGER003 = GetY()
AnsiPos INTEGER002, INTEGER003
Return
:LABEL020
Print STRING014
For INTEGER006 = 13 To 21
AnsiPos 1, INTEGER006
ClrEol
Next
AnsiPos 1, 13
If (BOOLEAN002) Then
For INTEGER006 = 1 To Len(STRING009)
INTEGER013 = INTEGER013 + 1
If (INTEGER013 >= 7) INTEGER013 = 1
If (INTEGER013 == 1) INTEGER014 = INTEGER015
If (INTEGER013 == 2) INTEGER014 = INTEGER016
If (INTEGER013 >= 3) INTEGER014 = 15
If (INTEGER013 == 5) INTEGER014 = INTEGER016
If (INTEGER013 == 6) INTEGER014 = INTEGER015
Color INTEGER014
Print Mid(STRING009, INTEGER006, 1)
Next
Else
Print STRING009
Endif
INTEGER004 = GetX()
INTEGER005 = GetY()
AnsiPos INTEGER004, INTEGER005
Return
:LABEL021
AnsiPos 79, 23
SaveScrn
AnsiPos 11, 6
PrintLn STRING012 + "@X0F┌───@X07───@X08── ∙ · · ∙ ──@X07───@X0F───┐"
AnsiPos 11, 7
PrintLn "@X08│" + STRING014 + " " + STRING012 + "@X08│"
AnsiPos 11, 8
PrintLn "@X0F└───@X07───@X08── ∙ · · ∙ ──@X07───@X0F───┘"
AnsiPos 13, 7
Print STRING014 + "@X08Fi@X07l@X0Fe@X08:@X07 "
STRING004 = ""
STRING005 = ""
INTEGER006 = 0
While (STRING004 <> Chr(13)) Do
STRING004 = KInkey()
If (STRING004 <> Chr(13)) Then
If ((STRING004 == Chr(8)) && (INTEGER006 > 0)) Then
Print Chr(8) + " " + Chr(8)
Dec INTEGER006
STRING005 = Left(STRING005, Len(STRING005) - 1)
Continue
Endif
If ((Asc(STRING004) > 32) && (INTEGER006 < 50)) Then
STRING005 = STRING005 + STRING004
Print STRING004
Inc INTEGER006
Endif
Endif
EndWhile
If (Exist(STRING005)) Then
Print "@CLS@@POFF@"
DispFile STRING005, 0
Newline
Print "@WAIT@"
Endif
RestScrn
AnsiPos INTEGER002, INTEGER003
Return
:LABEL022
AnsiPos 1, 12
Print " @X08─── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08 ───"
AnsiPos 1, 12
Print " @X08──── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08 ──── "
AnsiPos 1, 12
Print " @X08────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08 ──────"
AnsiPos 1, 12
Print " @X08──────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08 ────────"
AnsiPos 1, 12
Print " @X08────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08 ──────────"
AnsiPos 1, 12
Print " @X08──────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08 ────────────"
AnsiPos 1, 12
Print " @X08──────────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08 ────────────────"
AnsiPos 1, 12
Print " @X08──────────────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08 ────────────────────"
AnsiPos 1, 12
Print " @X08─────────────────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08 ───────────────────────"
AnsiPos 1, 12
Print " @X08─────────────────────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08───────────────────────────"
AnsiPos 1, 12
Print " @X08─────────────────────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08───────────────────────────"
AnsiPos 1, 12
Print " @X08 ──────────────────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08──────────────────────── "
AnsiPos 1, 12
Print " @X08 ─────────────────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08─────────────────────── "
AnsiPos 1, 12
Print " @X08 ──────────────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08──────────────────── "
AnsiPos 1, 12
Print " @X08 ───────────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08───────────────── "
AnsiPos 1, 12
Print " ───────────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08───────────── "
AnsiPos 1, 12
Print " ───────── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08───────── "
AnsiPos 1, 12
Print " ───── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08───── "
AnsiPos 1, 12
Print " ── @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08── "
AnsiPos 1, 12
Print " @X0FF@X0Ca@X04de @X0FC@X0Ch@X04at V@X0Ce@X0Fr 1@X0C.@X040 @X08 "
Return
:LABEL023
INTEGER017 = INTEGER017 + 1
If (INTEGER017 == 5) INTEGER017 = 1
If (INTEGER017 == 1) Goto LABEL024
If (INTEGER017 == 2) Goto LABEL025
If (INTEGER017 == 3) Goto LABEL026
If (INTEGER017 == 4) Goto LABEL027
:LABEL024
INTEGER015 = 1
INTEGER016 = 9
Return
:LABEL025
INTEGER015 = 2
INTEGER016 = 10
Return
:LABEL026
INTEGER015 = 5
INTEGER016 = 13
Return
:LABEL027
INTEGER015 = 4
INTEGER016 = 12
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 3 Cls
; 4 ClrEol
; 6 Color
; 110 Goto
; 159 Let
; 59 Print
; 5 PrintLn
; 126 If
; 1 DispFile
; 1 FCreate
; 1 FAppend
; 1 FClose
; 11 FPutLn
; 1 GetUser
; 1 Delete
; 1 AdjTime
; 23 Gosub
; 10 Return
; 8 Delay
; 15 Inc
; 5 Dec
; 1 Newline
; 2 Newlines
; 1 Tokenize
; 2 Beep
; 1 KbdStuff
; 59 AnsiPos
; 2 SaveScrn
; 2 RestScrn
; 1 Sound
; 1 PageOff
; 2 EndFunc
; 2 Eval
;
;
; ■ Functions used :
;
; 3 -
; 1 *
; 1 /
; 115 +
; 13 -
; 70 ==
; 13 <>
; 13 <
; 9 <=
; 12 >
; 30 >=
; 63 !
; 24 &&
; 11 ||
; 16 Len(
; 11 Lower()
; 7 Mid()
; 8 Left()
; 3 Right()
; 57 Chr()
; 4 Asc()
; 1 Date()
; 3 Time()
; 3 U_Name()
; 6 String()
; 5 PCBDat()
; 18 PPEPath()
; 4 PcbNode()
; 16 ReadLine()
; 1 GetToken()
; 5 Exist()
; 2 GetX()
; 2 GetY()
; 3 KInkey()
; 2 MInkey()
; 1 TokCount()
;
;------------------------------------------------------------------------------
;
; Analysis flags : Ad
;
; A - Adjust online time remaining ■ 5
; Program modify the amount of online time remaining, this may
; be a way to bypass time limits
; ■ Search for : ADJTIME
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 9 For/Next
; 4 While/EndWhile
; 30 If/Then or If/Then/Else
; 2 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------